home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD004a.dsk / KICK.IT.OFF.bas < prev    next >
BASIC Source File  |  2003-06-12  |  707b  |  15 lines
  1. 10  REM  KICK.IT.OFF
  2. 20  TEXT : HOME 
  3. 30  VTAB 4: HTAB 12: PRINT "SOFTDISK MAGAZETTE"
  4. 35  VTAB 7: HTAB 10: PRINT "1 = GREETINGS"
  5. 40  VTAB 9: HTAB 10: PRINT "2 = LISA"
  6. 50  VTAB 11: HTAB 10: PRINT "3 = FIRE.ORGAN FOLLOWUP"
  7. 60  VTAB 13: HTAB 10: PRINT "4 = HOW SOFTDISK WORKS"
  8. 70  VTAB 15: HTAB 10: PRINT "5 = ON WITH THE SHOW"
  9. 80  VTAB 17: HTAB 3: PRINT "WHICH? ";: GET R$
  10. 90  IF R$ = "1"  THEN  PRINT : PRINT  CHR$(4);"RUN GREETER"
  11. 100  IF R$ = "2"  THEN  PRINT : PRINT  CHR$(4);"RUN LISA"
  12. 110  IF R$ = "3"  THEN  PRINT : PRINT  CHR$(4);"RUN ABOUT.SPARKEE"
  13. 120  IF R$ = "4"  THEN  PRINT : PRINT  CHR$(4);"RUN HOW.SOFTDISK.WORKS"
  14. 130  IF R$ = "5"  THEN  PRINT : PRINT  CHR$(4);"RUN SOFTDISK.PROG"
  15. 140  GOTO 80